home *** CD-ROM | disk | FTP | other *** search
-
- ; DPA_FIX.A
- ;
- ; A0 arg1 (8 bytes)
- ; result into D0
- ;
- ; NOTE: we save D2/D3 due to a bug in IEEEDPFix that may
- ; trash D3 (D2 also saved for good measure)
- ;
- ; (c)Copyright 1990, Matthew Dillon, All Rights Reserved
-
- section text,code
-
- xref _MathIeeeDoubBasBase
- xref _LVOIEEEDPFix
- xdef __dpfix_a
-
- __dpfix_a movem.l D2/D3/A6,-(sp)
- move.l _MathIeeeDoubBasBase(A4),A6
- movem.l (A0),D0/D1
- jsr _LVOIEEEDPFix(A6)
- movem.l (sp)+,D2/D3/A6
- rts
-
- END
-
-